home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Brain Activity / Hydrocis / InstallDisk-English < prev    next >
Text File  |  1996-01-11  |  3KB  |  101 lines
  1. ; $VER: Hydrocis_DiskInstaller_Version 1.00 (03.01.95)
  2. ; von Sebastian Winkel
  3.  
  4. (set #introduction
  5. (cat "\n\nThis program installs Hydrocis on a floppy disk. "
  6.      "All you need is a formatted and installed blank disk "
  7.      "named ´Hydrocis´. "))
  8.  
  9. (complete 0)
  10. (message #introduction)
  11.  
  12. (set anleitungen
  13. (askoptions (prompt "\nHydrocis is delivered with a german documentation as an "
  14.                     "ASCII- or an amigaguide-file. Which do you want to install?"
  15.                     "\n(Note: The english on-line help explains the most important "
  16.                     "aspects of the game)") 
  17. (help "Click Proceed")
  18. (Choices "Hydrocis.dok"
  19.          "Hydrocis.guide")
  20. (default 2)))
  21.  
  22. (working "\n\nStarting the installation process...")
  23.  
  24. (set @default-dest "Hydrocis:")
  25.  
  26. (if (= anleitungen 1)
  27. (copyfiles (source "Hydrocis.dok") (dest @default-dest) (nogauge) (infos)))
  28. (complete 5)
  29.  
  30. (if (= anleitungen 2)
  31. (copyfiles (source "Hydrocis.guide") (dest @default-dest) (nogauge) (infos)))
  32. (complete 5)
  33.  
  34. (if (= anleitungen 3)
  35. (
  36. (copyfiles (source "Hydrocis.dok") (dest @default-dest) (nogauge) (infos))
  37. (copyfiles (source "Hydrocis.guide") (dest @default-dest) (nogauge) (infos))
  38. (complete 5)
  39. ))
  40.  
  41. (copyfiles (source "level1") (dest @default-dest) (nogauge))
  42. (complete 10)
  43. (copyfiles (source "level19") (dest @default-dest) (nogauge))
  44. (complete 15)
  45. (copyfiles (source "level21") (dest @default-dest) (nogauge))
  46. (complete 20)
  47. (copyfiles (source "level2") (dest @default-dest) (nogauge))
  48. (complete 25)
  49. (copyfiles (source "level26") (dest @default-dest) (nogauge))
  50. (complete 30)
  51. (copyfiles (source "level16") (dest @default-dest) (nogauge))
  52. (complete 35)
  53. (copyfiles (source "DemoInfoE") (dest @default-dest) (nogauge))
  54. (complete 40)
  55. (copyfiles (source "level31E") (dest @default-dest) (nogauge))
  56. (complete 45)
  57. (copyfiles (source "level32E") (dest @default-dest) (nogauge))
  58. (complete 40)
  59.  
  60. (copyfiles (source "HydrocisE") (dest @default-dest) (nogauge) (infos))
  61. (complete 42)
  62. (copyfiles (source "Registration Form") (dest @default-dest) (nogauge) (infos))
  63. (complete 44)
  64. (copyfiles (source "Icons") (dest @default-dest) (nogauge))
  65. (complete 45)
  66. (copyfiles (source "Intro") (dest @default-dest) (nogauge))
  67. (complete 50)
  68. (copyfiles (source "Pithecus") (dest @default-dest) (nogauge))
  69. (complete 55)
  70. (copyfiles (source "GUI") (dest @default-dest) (nogauge))
  71. (complete 60)
  72.  
  73. (makedir "Hydrocis:Fonts")
  74. (makedir "Hydrocis:Fonts/Ruby")
  75. (makedir "Hydrocis:S")
  76. (makedir "Hydrocis:Libs")
  77. (complete 70)
  78.  
  79. (if (exists("SYS:L/Disk-Validator"))
  80.  ((makedir "Hydrocis:L")
  81.  (copyfiles (source "SYS:L/Disk-Validator") (dest "Hydrocis:L") (nogauge)))
  82. )
  83.  
  84. (copyfiles (source "FONTS:ruby/15") (dest "Hydrocis:Fonts/Ruby") (nogauge))
  85. (copyfiles (source "FONTS:ruby/8") (dest "Hydrocis:Fonts/Ruby") (nogauge))
  86. (copyfiles (source "FONTS:Ruby.Font") (dest "Hydrocis:Fonts") (nogauge))
  87. (complete 80)
  88.  
  89. (copyfiles (source "LIBS:diskfont.library") (dest "Hydrocis:Libs") (nogauge))
  90.  
  91. (if (exists("LIBS:lowlevel.library"))
  92.  ((copyfiles (source "LIBS:lowlevel.library") (dest "Hydrocis:Libs") (nogauge)))
  93. )
  94.  
  95. (complete 90)
  96.  
  97. (copyfiles (source "StaSequE.inst") (dest "Hydrocis:S") (nogauge))
  98. (rename "Hydrocis:S/StaSequE.inst" "Hydrocis:S/Startup-Sequence")
  99. (complete 100)
  100.  
  101.